﻿Public Class LandschaftstexturPlineSchweiß
    Inherits ObjektLandschaftsTextur



    Public Sub New()
        ID = "PLINESCHWEIß"
        Landschaftsname = "Schweißnaht"
        Deckung = 0
        Tarnung = False
        Select Case My.Settings.CommanderWarsGameMoodus
            Case Is <= CommanderWarsGameModi.AdvanceWarsDS
                KP = 99
            Case CommanderWarsGameModi.AdvanceWarsDC
                KP = 99
            Case Else
                KP = 100
        End Select
        TexturenLaden(New String() {"PLINESCHWEIß+O+W", "PLINESCHWEIß+N+S"})
        Normal = -1
        Ausrichtungslandschaften = New String() {"PIPELINE", "PLINE", "PIPE", "PIPESTATION", "FABRIK"}
        WirdZu = "KAPUTTEPIPESCHWEIß"
        ÜbergängeLaden("Schnee")
    End Sub

    Public Overrides Sub Malen3D(ByVal p_MatCube As Microsoft.DirectX.Matrix, ByVal Landschaft As ObjektLandschaft)

    End Sub

    Public Overrides Sub Ini3D()

    End Sub

    Public Overrides Sub Tick()

    End Sub
End Class
